home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / general / fractal / kaos.lha / autolib / auto_refresh.c < prev    next >
Encoding:
C/C++ Source or Header  |  1989-11-18  |  4.8 KB  |  129 lines
  1. /*
  2. ### refresh all values of parameters in auto panel items ###
  3. */
  4.  
  5. #include <stdio.h>
  6. #include <suntool/sunview.h>
  7. #include <suntool/panel.h>
  8. #include "../include/auto_kaos_def.h"
  9.  
  10.  
  11. auto_refresh()
  12. {
  13.  
  14.     int i;
  15.     extern short auto_panel_show;
  16.     extern char string[],auto_dir_name[],auto_file_name[],auto_input_name[];
  17.     /* AUTO86 declerations */
  18.     extern int auto_ndim,auto_ips,auto_irs,auto_ilp;
  19.     extern int auto_ntst,auto_ncol,auto_iad,auto_isp,auto_isw,auto_iplt;
  20.     extern int auto_nbc,auto_nint,auto_nmx,auto_npr,auto_mxbf,auto_iid;
  21.     extern int auto_itmx,auto_itnw,auto_nwtn,auto_jac,auto_nuzr;
  22.     extern int auto_n1,auto_n2,auto_nfpar,auto_icp[];
  23.     extern double auto_rl0,auto_rl1,auto_a0,auto_a1,auto_par[];
  24.     extern double auto_epsu,auto_epss,auto_epsl[],auto_ds,auto_dsmin,auto_dsmax;
  25.     extern double auto_thetau,auto_thetal[];
  26.     extern Panel_item auto_dir_name_item,auto_file_name_item,auto_input_name_item;
  27.  
  28.     extern Panel_item auto_ndim_item,auto_ips_item,auto_irs_item,auto_ilp_item;
  29.     extern Panel_item auto_ntst_item,auto_ncol_item,auto_iad_item,auto_isp_item,auto_isw_item,auto_iplt_item;
  30.     extern Panel_item auto_nbc_item,auto_nint_item,auto_nmx_item,auto_npr_item,auto_mxbf_item,auto_iid_item;
  31.     extern Panel_item auto_itmx_item,auto_itnw_item,auto_nwtn_item,auto_jac_item,auto_nuzr_item;
  32.     extern Panel_item auto_nfpar_item,auto_icp_item[];
  33.     extern Panel_item auto_rl0_item,auto_rl1_item,auto_a0_item,auto_a1_item,auto_par_item[];
  34.     extern Panel_item auto_epsu_item,auto_epss_item,auto_epsl_item[],auto_ds_item,auto_dsmin_item,auto_dsmax_item;
  35.     extern Panel_item auto_thetau_item,auto_thetal_item[];
  36.  
  37.     if(auto_panel_show){
  38.             panel_set_value(auto_dir_name_item,auto_dir_name);
  39.             panel_set_value(auto_file_name_item,auto_file_name);
  40.             panel_set_value(auto_input_name_item,auto_input_name);
  41.  
  42.         sprintf(string, "%d", auto_ndim);
  43.         panel_set_value(auto_ndim_item,string);
  44.         sprintf(string, "%d", auto_ips);
  45.         panel_set_value(auto_ips_item,string);
  46.         sprintf(string, "%d", auto_irs);
  47.         panel_set_value(auto_irs_item,string);
  48.         sprintf(string, "%d", auto_ilp);
  49.         panel_set_value(auto_ilp_item,string);
  50.         sprintf(string, "%d", auto_ntst);
  51.         panel_set_value(auto_ntst_item,string);
  52.         sprintf(string, "%d", auto_ncol);
  53.         panel_set_value(auto_ncol_item,string);
  54.         sprintf(string, "%d", auto_iad);
  55.         panel_set_value(auto_iad_item,string);
  56.         sprintf(string, "%d", auto_isp);
  57.         panel_set_value(auto_isp_item,string);
  58.         sprintf(string, "%d", auto_isw);
  59.         panel_set_value(auto_isw_item,string);
  60.         sprintf(string, "%d", auto_iplt);
  61.         panel_set_value(auto_iplt_item,string);
  62.         sprintf(string, "%d", auto_nbc);
  63.         panel_set_value(auto_nbc_item,string);
  64.         sprintf(string, "%d", auto_nint);
  65.         panel_set_value(auto_nint_item,string);
  66.         sprintf(string, "%d", auto_nmx);
  67.         panel_set_value(auto_nmx_item,string);
  68.         sprintf(string, "%d", auto_npr);
  69.         panel_set_value(auto_npr_item,string);
  70.         sprintf(string, "%d", auto_mxbf);
  71.         panel_set_value(auto_mxbf_item,string);
  72.         sprintf(string, "%d", auto_iid);
  73.         panel_set_value(auto_iid_item,string);
  74.         sprintf(string, "%d", auto_itmx);
  75.         panel_set_value(auto_itmx_item,string);
  76.         sprintf(string, "%d", auto_itnw);
  77.         panel_set_value(auto_itnw_item,string);
  78.         sprintf(string, "%d", auto_nwtn);
  79.         panel_set_value(auto_nwtn_item,string);
  80.         sprintf(string, "%d", auto_jac);
  81.         panel_set_value(auto_jac_item,string);
  82.         sprintf(string, "%d", auto_nuzr);
  83.         panel_set_value(auto_nuzr_item,string);
  84.         sprintf(string, "%d", auto_nfpar);
  85.         panel_set_value(auto_nfpar_item,string);
  86.         for(i=0;i<AUTO_NFPAR_MAX;i++){
  87.             sprintf(string, "%d", auto_icp[i]);
  88.             panel_set_value(auto_icp_item[i],string);
  89.         }
  90.  
  91.         sprintf(string, "%lg", auto_rl0);
  92.         panel_set_value(auto_rl0_item,string);
  93.         sprintf(string, "%lg", auto_rl1);
  94.         panel_set_value(auto_rl1_item,string);
  95.         sprintf(string, "%lg", auto_a0);
  96.         panel_set_value(auto_a0_item,string);
  97.         sprintf(string, "%lg", auto_a1);
  98.         panel_set_value(auto_a1_item,string);
  99.  
  100.         sprintf(string, "%lg", auto_epsu);
  101.         panel_set_value(auto_epsu_item,string);
  102.         sprintf(string, "%lg", auto_epss);
  103.         panel_set_value(auto_epss_item,string);
  104.         sprintf(string, "%lg", auto_epsl[0]);
  105.         panel_set_value(auto_epsl_item[0],string);
  106.         sprintf(string, "%lg", auto_epsl[1]);
  107.         panel_set_value(auto_epsl_item[1],string);
  108.  
  109.         sprintf(string, "%lg", auto_thetau);
  110.         panel_set_value(auto_thetau_item,string);
  111.         sprintf(string, "%lg", auto_thetal[0]);
  112.         panel_set_value(auto_thetal_item[0],string);
  113.         sprintf(string, "%lg", auto_thetal[1]);
  114.         panel_set_value(auto_thetal_item[1],string);
  115.  
  116.         sprintf(string, "%lg", auto_ds);
  117.         panel_set_value(auto_ds_item,string);
  118.         sprintf(string, "%lg", auto_dsmax);
  119.         panel_set_value(auto_dsmax_item,string);
  120.         sprintf(string, "%lg", auto_dsmin);
  121.         panel_set_value(auto_dsmin_item,string);
  122.         for(i=0;i<AUTO_ALL_PARAM_DIM;i++){
  123.             sprintf(string, "%lg", auto_par[i]);
  124.             panel_set_value(auto_par_item[i],string);
  125.         }
  126.     }
  127.  
  128. }
  129.